VXFORM6 Aircraft Record Display Form2% Frame15 Status > AirStatus AirExit E&xit 5 AirBrowse &Browse AirPrev &Prev AirNext &Next Frame12 Fuel Capacity MS Serif AirFuel MS Serif Frame11 Capacity Lbs MS Serif AirEmpty MS Serif Frame13 Avionics MS Serif AirDeice Deice MS Serif AirELT MS Serif AirRadarAlt Radar Altimeter MS Serif AirAudioPan Audio Panel MS Serif AirAutoP Auto Pilot MS Serif Air3LMB MS Serif AirRadar Radar MS Serif AirGlideSl GlideSlope MS Serif AirRMI MS Serif AirXpndr Transponder MS Serif AirHSI MS Serif AirADF MS Serif AirRnav MS Serif AirNav2 NavCom2 MS Serif AirDME MS Serif AirNav1 NavCom1 MS Serif Frame10 Gross Wt MS Serif AirGross MS Serif Frame9 Since Overhaul MS Serif AirSTOH MS Serif AirSPOH MS Serif AirSMOH MS Serif Label3 MS Serif Label2 MS Serif Label1 Major MS Serif Frame8 MS Serif AirTTSN MS Serif Frame7 Annual MS Serif AirAnnual MS Serif Frame6 MS Serif AirYear MS Serif Frame5 Price MS Serif AirPrice MS Serif Frame14 N-Code MS Serif AirNet MS Serif Frame4 Description MS Serif AirDesc MS Serif Frame3 MS Serif AirType MS Serif Frame2 MS Serif AirNNo MS Serif Frame1 MS Serif AirCode MS Serif AirDataLoad NumVal CursorWait AirCode TextH vxField AirNNo AirType AirDesc\ vxDouble AirPrice AirYear3 AirAnnualp AirTTSN AirSMOH AirSPOH AirSTOHw AirGross AirEmpty AirFuel AirNet Air3LMB Value vxTrueQ AirADF AirAudioPan AirAutoP AirDeice5 AirDME AirELT AirGlideSl AirHSI AirNav1 AirNav2 AirRadarU AirRadarAlt& AirRMI AirRnav AirXpndr vxUnlock CursorArrow Form_Load vxSelectDbf AircraftDbf Form6Active AirStatus vxRecNos AirExit_Click VXFORM6 Form_Unload Cancel FALSE AircraftReturnf BROWSE_USER vxCloseD vxWindowDereg VXFORM14 OpenCust Enabled> OpenAircraft LinkBuyToSell LinkSellToBuy PackFiles AirBrowse_Click Visible BrowseAir AirNext_Click vxSkip AirNext' AirPrev] AIrBrowse vxEof vxDeleted vxBottom BROWSE_EDIT AirPrev_Click vxBof vxTop Form_PaintM vxFormFrame vxEvalDouble AirYear_Change AirBrowse_Click current form is unloaded because if needed again- the form_load proc must be invoked to reset the control datad so we don't close files when we unload the form AirDataLoad c_code c_nno c_cat c_desc c_price #######0 c_year c_annual c_ttsn #####0 c_smoh c_spoh c_stoh c_gwt ####0 use vxEvalDouble to calc capacity iny lbs by subtracting empty weight from grossr in an xBase expression instead of Vis Bas c_gwt - c_ewt ####0 Numeric expression eval error c_fuelcap c_net #######0 c_lmb c_adf c_audpan c_autop c_deice c_dme c_elt c_glidesl c_hsi c_navcom1 c_navcom2 c_radar c_radaral c_rmi c_rnav c_xpndr AirExit_Click unloading the form performs cleanup for us- AirNext_Click skip forward one record if skip error, only allow exit Error on Skip Next. Try Reindex. the only choice we leave the operator is to exit test for end of file- End of File! Skipped to record AirPrev_Click skip back one record if skip error, only allow exit Error on Skip Previous. Try Reindex. test for beginning of filer Beginning of File! Skipped to record Form_Load call general proc to load controls Record Form_Paint Form_Unload close aircraft file and reset table and restart menu items if we're NOT being unloaded by the Browse button